home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / lang / false11.lha / False_v1.1 / other / unpack.f < prev   
Text File  |  1992-09-02  |  326b  |  32 lines
  1. { depack.f }
  2. {remove first until carriage return (redirection gives this shit) }
  3. [^l:]
  4. [l;10=~]#
  5. {is first char a packcode?}
  6.  l;'#=$
  7.  [
  8. {yes...}
  9.   ^l:^b:[b;0>][l;,b;1-b:]#
  10.  ]
  11.  ?
  12.  ~
  13.  [
  14.   l;,
  15.  ]
  16.  ?
  17. {possible depacking first char done.
  18.  now the rest.}
  19. [^$a:1_=~]
  20. [a;'#=$
  21.  [
  22.   ^a:^b:[b;0>][a;,b;1-b:]#
  23.  ]
  24.  ?
  25.  ~
  26.  [
  27.   a;,
  28.  ]
  29.  ?
  30. ]
  31. #
  32.